home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 023 - Big U Macroworks.dsk / FILEMOVER.SETUP.bas < prev    next >
BASIC Source File  |  2019-02-16  |  3KB  |  39 lines
  1. 1  ONERR  GOTO 300
  2. 2 D$ =  CHR$(4):KP = 49152:KR = 49168:Q$ =  CHR$(34):CS =  -958:CL =  -868:BP$ =  CHR$(7)
  3. 3 TF = 15050: REM  $3ACA
  4. 4 PF = TF +1: REM  PRINTER FLAG
  5. 5 TF(0) = TF +6:TF(1) = TF +11:TF(2) = TF +16:TF(3) = TF +24: REM  2 ASCII, LIT
  6. 7  TEXT : HOME : NORMAL : PRINT  CHR$(21)
  7. 10  TEXT : HOME : NORMAL : PRINT  CHR$(21)
  8. 20  PRINT "FILE.MOVER"
  9. 30  PRINT "Setup Program    (See page 31)"
  10. 40  PRINT "-------------": PRINT 
  11. 50  PRINT "Copyright (c) 1985, Randy Brandt"
  12. 60  PRINT "Beagle Bros Micro Software, Inc."
  13. 70  VTAB 9: CALL CS: PRINT "Loading FILE.MOVER..."
  14. 80  PRINT D$"BLOAD FILE.MOVER":LE =  PEEK(48857) +256 * PEEK(48858)
  15. 90 TR =  PEEK(TF(0)):T1 = TR:RE$ = "ON": IF  PEEK(PF) = 0  THEN RE$ = "OFF"
  16. 100  IF TR <36  OR TR >80  THEN  VTAB 8: PRINT : CALL CS: PRINT "<CTRL-G>Unrecognized version of FILE.MOVER": STOP 
  17. 110  GOSUB 270: REM  TRACKS
  18. 120  GET X$: IF X$ = "Q"  OR X$ = "q"  THEN 400
  19. 125  IF X$ = "P"  OR X$ = "p"  THEN  POKE PF,1 - PEEK(PF): GOTO 90
  20. 130  IF X$ = "S"  OR X$ = "s"  THEN X$ = "S": VTAB 21: PRINT : PRINT "Saving configured version...": CALL CS
  21. 135  IF X$ = "S"  THEN 200
  22. 140  IF X$ < >"F"  AND X$ < >"f"  THEN  PRINT BP$;: GOTO 120
  23. 145  VTAB 21: PRINT : PRINT "Format how many tracks";: CALL CS: INPUT X$: IF X$ = ""  THEN 110
  24. 150 X =  VAL(X$): IF X <36  OR X >40  THEN 145
  25. 155 TR = X:A1 =  ASC( LEFT$(X$,1)) +128:A2 =  ASC( RIGHT$(X$,1)) +128:TB = TR *8:X =  INT((TB)/256):TB = TB -(X *256)
  26. 180  POKE TF(0),TR: POKE TF(1),TB: POKE TF(2),A1: POKE TF(3),A2: GOTO 110
  27. 200  PRINT D$"UNLOCK FILE.MOVER"
  28. 201  PRINT D$"BSAVE FILE.MOVER,A"TF",L"LE: PRINT D$"LOCK FILE.MOVER": GOTO 110
  29. 270  VTAB 5: PRINT : PRINT "FILE.MOVER is capable of formatting     from 36 to 40 tracks on special drives.": PRINT "Do NOT attempt to format more tracks    than your drive is designed to handle.": CALL CS: PRINT 
  30. 280  PRINT "F - Change special format": HTAB 5: PRINT "(Now ";: INVERSE : PRINT TR;: NORMAL : PRINT " tracks)": PRINT : PRINT "P - Change printer setting": HTAB 5: PRINT "(Extra carriage returns now ";: INVERSE : PRINT RE$;: NORMAL : PRINT ") ": PRINT 
  31. 285  PRINT "S - Save FILE.MOVER": PRINT : PRINT "Q - Quit": PRINT : PRINT 
  32. 290  PRINT "Press "Q$"F"Q$", "Q$"P"Q$", "Q$"S"Q$", or "Q$"Q"Q$": ";: CALL CS: RETURN 
  33. 300 ER =  PEEK(222):EL =  PEEK(218) + PEEK(219) *256
  34. 305  IF EL = 80  AND ER = 12  THEN  HOME : PRINT : PRINT "PLEASE REBOOT AND TRY AGAIN.": END 
  35. 310  IF EL = 80  THEN  VTAB 8: PRINT BP$: PRINT "Can't find FILE.MOVER "ER: PRINT "Insert the proper disk and press a key ";: GET X$: ON X$ < > CHR$(27) GOTO 80: GOTO 400
  36. 315  IF EL = 200  THEN 201
  37. 320  IF EL = 201  THEN  VTAB 21: PRINT BP$: CALL CS: PRINT "DISK ERROR": PRINT "Press Return to try again": PRINT "or press Escape: ";: GET Y$: ON Y$ < > CHR$(27) GOTO 201: GOTO 110
  38. 340  POKE 216,0: RESUME 
  39. 400  HOME : PRINT : PRINT "TYPE "Q$"RUN"Q$" TO RESTART."